Apple Reference & Presen…rary 5 (Internal Edition)/Apple R&P Lib Internal v5.0.iso/6-Developer Demos/Developer Demos-Gen./Mac Yellow Pages 1.0/stack.txt

Text File | 1990-08-17 | 4.8 KB | 173 lines

-- stack: in.0
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 2855402432
-- maximum user level: 4 (authoring)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 6
-- first background id: 3486
-- card count: 390
-- first card id: 3192
-- list block id: 2210
-- print block id: 0
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 522304 bytes
-- stack block size: 4096 bytes
-- created by hypercard version: 0x01228000
-- compacted by hypercard version: 0x01208000
-- modified by hypercard version: 0x01208000
-- opened by hypercard version: 0x01228000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on openStack
  send "set the cantModify of this stack to true" to HyperCard

  global returnLevel
  put the userlevel into returnLevel
  set the userlevel to 2

  hide menubar

  global alreadyPrinted
  put false into alreadyPrinted

  global firstTimeFound
  put true into firstTimeFound

  global waitTime, increment, stringToFind, firstPage, lastPage
  global bookMark, forwardStatus, rewindStatus, flashStatus

  -- Getting the card number of the first and last pages
  set lockScreen to true
  push card
  go to card "First Page"
  put the number of this card into firstPage
  --go to next card
  put the name of this card into bookMark
  go to card "Last Page"
  put the number of this card into lastPage
  pop card
  set lockScreen to false

  -- When a card stays idle for more than [waitTime] seconds,the
  -- card is stored into the [undoMemory].  When the undo button
  -- is clicked, the card stored in the [undoMemory] will be recalled.
  put 2 into waitTime

  -- The [increment] is the number of cards skipped during each
  -- fast-forward or fast-rewind step.
  put 10 into increment

  -- This is the default stringToFind
  put empty into stringToFind

  -- These are the status of the three fast navigation buttons
  put false into forwardStatus
  put false into rewindStatus
  put false into flashStatus

end openStack

on closeStack
  global returnLevel
  set the userlevel to returnLevel
  send "set the cantModify of this stack to false" to HyperCard
end closeStack

on set x, y
  if x = "cantModify" or y = "cantModify" then
    -- do nothing
  else
    pass set
  end if
end set

function blip text
lock Screen
put empty into card field "blip Field"
unlock Screen with dissolve
repeat with x = 1 to number of words of text
  play stop
  play boing a6t
  put word x of text & space after card field "blip Field"
end repeat
end blip

on doMenu action
  if action is "Prev" or action is "Next" or action is "First" or action is "Last" or action is "Find..." then
    --beep
  else if action is "Quit HyperCard" then
    answer "Quit Macintosh Yellow Pages?" with "Cancel" or "OK"
    if it is "OK" then
      visual effect dissolve to black
      visual effect dissolve
      go to card "Quit Screen"
      wait for 3 seconds
      visual effect dissolve to black
      visual effect dissolve
      go to next card
      wait for 1 second
      pass doMenu
    end if
  else if action is "Print Card" then
    answer "Print this page?" with "Cancel" or "OK"
    if it is "OK" then
      print this card
    end if
  else
    pass doMenu
  end if
end doMenu

on help
  -- do nothing; trapped at card and bkgnd levels already.
end help